home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 May / 1986-05.d64 / super synth (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  124 lines
  1. 100 poke53281,0:poke53280,0:print"[147]":poke214,10
  2. 110 printtab(9)"[158]welcome to super-synth"
  3. 120 print:printtab(3)"while waiting for frequencies to be
  4. 130 [153]:[153][163]5)"calculated, turn up the volume.":k[178]256:ch[178]35
  5. 140 m[178]1.005:ma[178]64:[134]f1(ma),f2(ma),f3(ma),f4(ma),g1(ma),g2(ma),g3(ma),g4(ma)
  6. 150 [134]h1(ma),h2(ma),h3(ma),h4(ma)
  7. 160 [153]:[135]t,n:n1[178]n[172]m:n2[178]n[172]2:n3[178]n[172]2[172]m:n4[178][181](n[173]2):n5[178][181](n[173]2[172]m)
  8. 170 f1(t)[178][181](n[173]k):f2(t)[178]n[171](f1(t)[172]k):f3(t)[178][181](n1[173]k):f4(t)[178][181](n1[171](f3(t)[172]k))
  9. 180 g1(t)[178][181](n2[173]k):g2(t)[178]n2[171](g1(t)[172]k):g3(t)[178][181](n3[173]k):g4(t)[178][181](n3[171](g3(t)[172]k))
  10. 190 h1(t)[178][181](n4[173]k):h2(t)[178]n4[171](h1(t)[172]k):h3(t)[178][181](n5[173]k):h4(t)[178][181](n5[171](h3(t)[172]k))
  11. 200 [139]t[179][177]ch[167]160
  12. 210 [139]ch[179][177]50[167][129]t[178]1[164]10:[153]:[130]:[153][163]16)"thanks!":ch[178]50:[137]160
  13. 220 nf[178]8:nk[178]64:kb[178]197:v[178]54272:v1[178]v[170]1:v2[178]v:v3[178]v[170]8:v4[178]v[170]7:rn[178][187]([171]ti)
  14. 230 fl[178]0:db[178]8:dc[178]8:dd[178]8:vo[178]31:vs[178]17:vi[178]90:xt[178]1:po[178]240:z[178]2:w1[178]33:w2[178]33:at[178]8:de[178]8
  15. 240 su[178]8:re[178]8:[141]490
  16. 250 [141]480:[129]t[178]v[164]v[170]23:[151]t,0:[130]:[151]v[170]5,ad:[151]v[170]6,sr:[151]v[170]12,ad
  17. 260 [151]v[170]13,sr:[151]v[170]3,db:[151]v[170]10,dc:[151]v[170]17,dd:[151]v[170]14,vi:[151]v[170]18,vs
  18. 270 [151]v[170]23,po:[151]v[170]24,vo
  19. 280 t[178][194](kb):[139]t[178]nk[167]280
  20. 290 [139]t[179]nf[167]470
  21. 300 [145]z[137]310,330,340,350,360,320
  22. 310 [151]v1,g1(t):[151]v2,g2(t):[151]v3,g3(t):[151]v4,g4(t):[137]370
  23. 320 [151]v1,h1(t):[151]v2,h2(t):[151]v3,h3(t):[151]v4,h4(t):[137]370
  24. 330 [141]460:[137]370
  25. 340 [141]460:[151]v[170]15,f1(t)[173].7:[137]370
  26. 350 [141]460:[151]v[170]15,f1(t)[173]2:[137]370
  27. 360 [141]460:[151]v[170]4,w1:[151]v[170]11,w2:[129]y[178]1[164]10:[130]:[137]430
  28. 370 [151]v[170]4,w1:[151]v[170]11,w2
  29. 380 [139]z[178]4[167][129]u[178]1[164]sl[169]xt:[151]v[170]1,u:[139][194](kb)[178]t[167][130]
  30. 390 [139]z[178]4[167][141]440:[137]430
  31. 400 [139]fl[178]1[167][151]v,[194](v[170]27):[151]v[170]7,[194](v[170]27):[137]420
  32. 410 [139]fl[178]2[167][129]u[178]1[164]sl[169]10:[151]v[170]22,u:[139][194](kb)[178]t[167][130]:[141]440:[137]430
  33. 420 [139][194](kb)[178]t[167]380
  34. 430 [151]v[170]4,w1[171]1:[151]v[170]11,w2[171]1:[151]v[170]15,0:[137]280
  35. 440 [139][194](kb)[179][177]nk[167]440
  36. 450 [142]
  37. 460 [151]v1,f1(t):[151]v2,f2(t):[151]v3,f3(t):[151]v4,f4(t):[142]
  38. 470 [145]t[170]1[137]280,1050,280,1260,230,690,1200,280
  39. 480 ad[178]at[172]16[170]de:sr[178]su[172]16[170]re:[142]
  40. 490 [151]53280,0:[151]53281,0:[153]"loadsys"
  41. 500 [153][163]12)"keyboard screen"
  42. 510 [153][163]13)"f1 - normal":[153][163]13)"f3 - new sound
  43. 520 printtab(13)"f5 - save sound
  44. 530 [153][163]13)"f7 - load sound"
  45. 540 [153][163]5)"then   (NULL)    (NULL)   peek   waitc "
  46. 550 [153][163]5)"then wait2 wait3 (NULL) wait5 wait6 wait7 (NULL) wait9 wait0 (NULL) wait- wait\ waith "
  47. 560 [153][163]5)"then (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) wait systanright$"
  48. 570 [153][163]5)"thenq(NULL)w(NULL)e(NULL)r(NULL)t(NULL)y(NULL)u(NULL)i(NULL)o(NULL)p(NULL)@(NULL)*(NULL)^(NULL)zwait  syspeek"
  49. 580 [153][163]35)"peek":[153][163]6)"(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)"
  50. 590 [153][163]6)"peek":[153][163]6)"peek + peek   (NULL)    (NULL)   waitsgn"
  51. 600 [153][163]6)"syspeek + peek waitd waitf (NULL) waith waitj waitk (NULL) wait: wait; waitsgn"
  52. 610 [153][163]6)"sysmid$tanthen peek peek (NULL) (NULL) (NULL) (NULL) (NULL)close(NULL) (NULL) (NULL) waitsgn"
  53. 620 [153][163]8)"+zpeekx(NULL)c(NULL)v(NULL)b(NULL)n(NULL)m(NULL),(NULL).(NULL)/(NULL) waitsgn"
  54. 630 [153][163]8)"sysreturn for values screen":[142]
  55. 640 [131] 62,2145,9,2408,14,2703,17,2864,22,3215,25,3608,30,4050,33,4291
  56. 650 [131] 38,4817,41,5407,46,5728,49,6430,54,7217,12,8101,23,8583,20,9634
  57. 660 [131] 31,10814,28,11457,39,12860,36,14435,47,16203,44,17167,55,19269
  58. 670 [131] 59,2273,8,2551,16,3034,19,3406,24,3823,32,4547,35,5103,43,6069,48,6812
  59. 680 [131] 51,7647,18,9094,21,10207,29,12139,34,13625,37,15294,45,18188,50,20415
  60. 690 z[178][181](6[172][187](1))[170]1:fl[178][181](3[172][187](1))[170]0
  61. 700 sl[178][181](255[172][187](1))[170]1
  62. 710 w1[178][181](7[172][187](1))[170]1:[145]w1[137]720,730,740,750,760,770,780
  63. 720 w1[178]17:[137]790
  64. 730 w1[178]33:[137]790
  65. 740 w1[178]65:[137]790
  66. 750 w1[178]129:[137]790
  67. 760 w1[178]21:[137]790
  68. 770 w1[178]23:[137]790
  69. 780 w1[178]85
  70. 790 w2[178][181](8[172][187](1))[170]1:[145]w2[137]800,810,820,830,840,850,860,870
  71. 800 w2[178]1:[137]880
  72. 810 w2[178]17:[137]880
  73. 820 w2[178]33:[137]880
  74. 830 w2[178]65:[137]880
  75. 840 w2[178]129:[137]880
  76. 850 w2[178]21:[137]880
  77. 860 w2[178]23:[137]880
  78. 870 w2[178]85
  79. 880 at[178][181](10[172][187](1))[170]1:de[178][181](15[172][187](1))[170]1:su[178][181](15[172][187](1))[170]1
  80. 890 re[178][181](15[172][187](1))[170]1:so[178][181](4[172][187](1))[170]1:[145]so[137]895,900,910,920
  81. 895 po[178]240:[137]930
  82. 900 po[178]241:[137]930
  83. 910 po[178]242:[137]930
  84. 920 po[178]243
  85. 930 xt[178][181](40[172][187](1))[170]1
  86. 940 vs[178][181](4[172][187](1))[170]1:[145]vs[137]950,960,970,980
  87. 950 vs[178]17:[137]990
  88. 960 vs[178]33:[137]990
  89. 970 vs[178]65:[137]990
  90. 980 vs[178]129
  91. 990 vi[178][181](200[172][187](1))[170]55
  92. 1000 db[178][181](8[172][187](1))[170]1:dc[178][181](8[172][187](1))[170]1:dd[178][181](8[172][187](1))[170]1
  93. 1010 vo[178][181](3[172][187](1))[170]1:[145]vo[137]1020,1030,1040
  94. 1020 vo[178]31:[137]250
  95. 1030 vo[178]45:[137]250
  96. 1040 vo[178]79:[137]250
  97. 1050 [151]53280,6:[151]53281,6:[151]198,0:[153]"load":[153][163]13)"values screen"
  98. 1060 [153]"z ="[163]21)z:[153]"fl ="[163]21)fl
  99. 1070 [153]"voice 1 ="[163]21)w1:[153]"voice 2 ="[163]21)w2
  100. 1080 [153]"attack ="[163]21)at:[153]"decay ="[163]21)de
  101. 1090 [153]"sustain ="[163]21)su:[153]"release ="[163]21)re
  102. 1100 [153]"resonance ="[163]21)po
  103. 1110 [153]"sync speed ="[163]21)xt
  104. 1120 [153]"vibrato speed ="[163]21)vi
  105. 1130 [153]"vibrato shape ="[163]21)vs:[153]"pulse shape voice 1 ="db
  106. 1140 [153]"pulse shape voice 2 ="dc:[153]"pulse shape voice 3 ="dd
  107. 1150 [153]"filter ="[163]21)vo
  108. 1160 [153]"step limit ="[163]21)sl
  109. 1170 [153]"press return for keyboard screen
  110. 1180 geta$:ifa$<>chr$(13)then1180
  111. 1190 gosub490:goto280
  112. 1200 s$="":poke198,0:print"[147]":poke214,9:print:poke211,4
  113. 1210 input"sound to save";s$:ifs$=""thengosub490:goto280
  114. 1220 open1,8,1,s$:print#1,z
  115. 1230 print#1,fl:print#1,w1:print#1,w2:print#1,at:print#1,de:print#1,su
  116. 1240 print#1,re:print#1,po:print#1,xt:print#1,vi:print#1,vs:print#1,db
  117. 1250 print#1,dc:print#1,dd:print#1,vo:print#1,sl:close1:gosub490:goto280
  118. 1260 s$="":poke198,0:print"[147]":poke214,9:print:poke211,4
  119. 1270 input"sound to load";s$:ifs$=""thengosub490:goto280
  120. 1280 open1,8,0,s$:input#1,z
  121. 1290 input#1,fl:input#1,w1:input#1,w2:input#1,at:input#1,de:input#1,su
  122. 1300 input#1,re:input#1,po:input#1,xt:input#1,vi:input#1,vs:input#1,db
  123. 1310 input#1,dc:input#1,dd:input#1,vo:input#1,sl:close1:gosub490:goto250
  124.